Лабораторная работа № 2

Задание 1

Разработать программу, вычисляющую сумму двух чисел (см. файл Summator.exe).

Этапы работы (после каждого этапа запускайте проект, чтобы увидеть результат):

1. Создайте папку Сумматор. Сохраните файлы в созданной папке следующим образом: модуль - Form_Sum.pas, проект—Summator.dpr .

2. Задайте свойства формы согласно таблице:

Свойство	Значение	Примечание
Name	fmSum	Имя
Caption	Сумматор	Надпись в строке заголовка
Width	350	Ширина
Height	220	Высота
Position	poScreenCenter	Размещается по центру экрана
BorderStyle	bsSingle	Нельзя изменить размер
BorderIcons.biMaximize	False	Кнопка разворачивания окна недоступна

3. На странице Standard (Стандартные) (на палитре компонентов) найдите и разместите на форме следующие компоненты (местоположение и стиль см. на рисунке):

1) Три надписи TLabel

Свойство	Значение	Примечание
Name	lbAdd1	Имя
	lbAdd2
	lbSum
Caption	Первое слагаемое	Надпись на форме
	Второе слагаемое
	Сумма

2) Два однострочных редактора TEdit

Свойство	Значение	Примечание
Name	edAdd1	Имя
	edAdd2
Text		Удалить текст
Hint	Введите первое число	Всплывающая подсказка
	Введите второе число
ShowHint	True	Показывать всплывающую подсказку

3) Кнопка TButton

Свойство	Значение	Примечание
Name	btSum	Имя
Caption	Вычислить	Надпись на кнопке
Width	153	Ширина
Height	33	Высота

4) Однострочный редактор TEdit

Свойство	Значение	Примечание
Name	edSum	Имя
Text		Удалить текст
Hint	Нажмите на кнопку [Вычислить]	Всплывающая подсказка
ShowHint	True	Показывать всплывающую подсказку
ReadOnly	True	Только для чтения

4. Обратите внимание на исходный текст модуля Form_Sum.pas. В описании класса TfmSum должны появиться соответствующие поля. В контекстном меню формы (щелчок правой кнопкой мыши) выберите пункт  View as Text… (В Виде Текста). Изучите отображаемые свойства компонентов. Для возврата нажмите Alt+F12.

5. Запустите проект на выполнение. Введите числа. Обратите внимание на всплывающие подсказки, невозможность ввода данных в строку суммы, отсутствие реакции программы на щелчок по кнопке Вычислить. Завершите работу приложения.

6. Для вычисления суммы чисел необходимо задать обработчик события «Нажата кнопка Вычислить». Для этого двойным щелчком активизируйте соответствующую кнопку. Обратите внимание на название появившейся процедуры, а также на изменения в описании класса TfmSum. В процедуре запишите:

var a, b, c: real;

     s: string; code: integer;

begin

  val (edAdd1.Text, a, code);

  val (edAdd2.Text, b, code);

  c := a+b;

  str(c:-10:2, s);

  edSum.Text := s;

 

end;

При вводе текста процедуры отметьте, что ввод точки после объекта сопровождается списком определенных для него свойств, процедур и функций.

7. Запустите программу и проверьте, как она работает. Обратите внимание на перемещение курсора по компонентам формы с помощью клавиши Tab. Закройте приложение, и, если необходимо, установите нужный порядок перемещения (в контекстном меню формы выберите пункт Tab Order… (Порядок Переключения…)). Для компоненты edSum в свойстве TabStop установите значение False.